home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / CMP / GPM2 / AESSYS.ASM next >
Encoding:
Assembly Source File  |  1993-12-12  |  1.1 KB  |  72 lines
  1. module AESSYS
  2.  
  3. segment C_AESSYS(FCODE,28H); group G_AESSYS(C_AESSYS); select C_AESSYS
  4. ;
  5.  
  6. public AESSYS$aes:
  7.  
  8. push bp
  9. mov bp,sp
  10. mov ax,[bp][6]
  11. mov bx,[bp][4]
  12. mov cx,200
  13. mov dx,0
  14. mov es,ax
  15. int 0EFH
  16. mov sp,bp
  17. pop bp
  18. ret far 4
  19.  
  20. public AESSYS$applyield:
  21.  
  22. mov cx,201
  23. mov dx,0
  24. int 0EFH
  25. ret far 0
  26.  
  27. public AESSYS$FrameCode:
  28.  
  29. push bp
  30. mov bp,sp
  31.  
  32. push ds
  33. push es
  34. push si
  35. push di
  36.                             (* ax:bx = seg(PB):ofs(PB) *)
  37. mov es,ax                   (* es:= ax                 *)
  38.  
  39. (*lds si,es:[bx+1AH]           ds:si:= es:bx+PBParm    *)
  40. dw 026C5H,0771AH
  41. (*mov ds,ax*)
  42.  
  43. (*mov di,bx*)
  44. (*add di,26*)
  45. (*mov si,[di]*)
  46.  
  47. push es                     (* push seg(PB)            *)
  48. mov ax,bx                   (* ax:= bx                 *)
  49. push ax                     (* push ofs(PB)            *)
  50. (*call ds:[si]*)
  51.  
  52. call dword [si]
  53. (*dw 0FF1CH*)
  54.  
  55. pop di
  56. pop si
  57. pop es
  58. pop ds
  59.  
  60. mov sp,bp
  61. pop bp
  62. ret far 0
  63.  
  64. drawsp: dw 0
  65. drawss: dw 0
  66.  
  67. section; segment D_AESSYS(M_DATA,28H); select D_AESSYS
  68.  
  69. drawstack: org 512
  70.  
  71. end
  72.